Galleria D'arte: Manet/Manet.iso/Dati/Memo.dxr/00006_Switch Mouseenter fiori.ls

Text File | 2000-12-21 | 1.3 KB | 30 lines

property pCastORIG, pCastFB1, pFB2, pCastFB2, pCUR, pMASK, pCURdn, pMASKdn

on getPropertyDescriptionList
  pippo = the memberNum of sprite (the currentSpriteNum + 1)
  pluto = pippo + 1
  paperino = pippo + 2
  propertyDescriptionList = [#pCastORIG: [#comment: "Numero elemento del Cast di origine del bottone", #format: #integer, #default: pippo], #pCastFB1: [#comment: "Numero elemento del Cast del primo feedback", #format: #integer, #default: pluto], #pCUR: [#comment: "Numero elemento del Cast da utilizzare come cursore", #format: #bitmap, #default: member(100)], #pMASK: [#comment: "Maschera cursore", #format: #bitmap, #default: member(101)], #pCURdn: [#comment: "Numero elemento del Cast da utilizzare come cursore per il mousedown", #format: #bitmap, #default: member(102)], #pMASKdn: [#comment: "Maschera cursore", #format: #bitmap, #default: member(103)]]
  return propertyDescriptionList
end

on mouseWithin me
  set the memberNum of sprite (the currentSpriteNum + 1) to pCastFB1
  cursor(280)
  updateStage()
end

on mouseLeave me
  set the memberNum of sprite (the currentSpriteNum + 1) to pCastORIG
  cursor(-1)
  updateStage()
end

on mouseDown me
  set the memberNum of sprite (the currentSpriteNum + 1) to pCastORIG
  cursor(280)
  repeat while the stillDown
    updateStage()
  end repeat
end